(server-process-filter): Don't force the authentication

string to be followed by "\n".

diff --git a/lisp/server.el b/lisp/server.el
index 2087af26b10dc476bb6c33b3c43a2175c4588377..23f8eb36947bac3545d4f35420b39b255d6c7a53 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -767,7 +767,7 @@ The following commands are accepted by the client:
   (server-log (concat "Received " string) proc)
   ;; First things first: let's check the authentication
   (unless (process-get proc :authenticated)
-    (if (and (string-match "-auth \\(.*?\\)\n" string)
+    (if (and (string-match "-auth \\([!-~]+\\)\n?" string)
             (equal (match-string 1 string) (process-get proc :auth-key)))
        (progn
          (setq string (substring string (match-end 0)))